0 PRINT"[147]",CHR$(14) 10 PRINT"[195][197][206][212]-[211][205][207][206]-[203]ERNEL 20 [153] 30 [153]"- STR$AS (null)UPER-PEEKETRIEBSSYSTEM JETZT MIT 40 PRINT" [195]ENTRONICS-[211]CHNITTSTELLE 50 [153] 60 [153]" LENVAL(null)(null)-(null)(null)(null)(null)-(null)ERNEL ENTSPRICHT IN ALLEN 70 PRINT"[198]UNKTIONEN DEM BEREITS VORGESTELLTEN 80 [153]"VAL(null)-(null)(null)(null)(null)-(null)ERNEL. STR$IE PEEKEDIENUNG UND AUCH 90 PRINT"DER [197]INBAU ENTSPRECHEN DEN DORTIGEN 100 [153]"ATNNGABEN. (null)ICHT MEHR VORHANDEN SIND DIE 110 PRINT"[210][211]-232-[210]OUTINEN, DEREN [208]LATZ FUER DIE 120 [153]"LENENTRONICS-(null)CHNITTSTELLE GEBRAUCHT 130 PRINT"WURDE. 150 [153]" STR$AS ERKLAERTE (null)IEL WAR, EINE (null)CHNITT- 160 PRINT"STELLE IM [203]ERNEL UNTERZUBRINGEN, DIE 170 [153]"ES ERMOEGLICHT, EINEN STR$RUCKER MIT (null)A- 180 PRINT"RALLEL-[211]CHNITTSTELLE SO AM [213]SER-[208]ORT 190 [153]"ZU BETREIBEN, DASS MAN (ABGESEHEN VON 200 PRINT"DEN MEIST BESSEREN [209]UALITAETEN DES 210 [153]"STR$RUCKERS) KAUM MEHR MERKT, DASS ES 220 PRINT"SICH NICHT UM EINEN [195]OMMODORE-KOMPA- 230 [153]"TIBLEN STR$RUCKER HANDELT. 240 PRINT" [212]ASTE 250 [161]A$:[139]A$[178]""[167]250 260 [153]"LOAD 270 PRINT" [211]O WIRD NUR EIN EINFACHES [214]ERBINDUNGS- 280 [153]"KABEL (KEIN RIGHT$NTERFACE!) BENOETIGT, UND 290 PRINT"VIELE [211]TEUERPROBLEME, DIE MIT [201]NTER- 300 [153]"FACES ENTSTEHEN, ENTFALLEN. 310 PRINT 320 PRINT" [204]EIDER WAR ES IM VORHANDENEN [211]PEICHER- 330 [153]"RAUM NICHT MOEGLICH, SAEMTLICHE ASCUNK- 340 PRINT"TIONEN, ALSO AUCH DIE [218]AHLENFORMATIE- 350 [153]"RUNG ETC. EINES LENOMMODORE-STR$RUCKERS UN- 360 PRINT"TERZUBRINGEN. [193]LLE OFT GEBRAUCHTEN 370 [153]"STR$RUCKERFUNKTIONEN WERDEN JEDOCH ORGI- 380 PRINT"NALGETREU AN DEN [208]ARALLEL-[196]RUCKER WEI- 390 [153]"TERGEGEBEN. (null)ELBST LEFT$ARDCOPY-(null)OUTINEN, 400 PRINT"DIE EINEN [205][208][211]801/803 ERWARTEN, LAUFEN 410 [153]"EINWANDFREI MIT DEM LENVAL(null)(null)-(null)(null)(null)(null)-(null)ERNEL. 420 PRINT 430 PRINT" [198]OLGENDE [196]RUCKERFUNKTIONEN WERDEN 440 [153]"ANGEPASST: 450 PRINT 460 PRINT"- [196]ER [196]RUCKER WIRD UEBER [199]ERAETEADRES- 470 [153]" SE #4 ANGESPROCHEN. 480 PRINT" [212]ASTE 490 [161]A$:[139]A$[178]""[167]490 500 [153]"LOAD"; 510 [153]"- VALS WIRD AUTOMATISCH VALXTRA-(null)INE-ASCEED 520 PRINT" AUSGEGEBEN, DIE [193]UTO-[204][198]-[198]UNKTION 530 [153]" DES STR$RUCKERS MUSS ALSO AUSGESCHALTET 540 PRINT" BLEIBEN ([207]RGINALZUSTAND!). 550 [153]"- STR$ER STR$RUCKER WIRD BEIM ERSTEN ATNNSPRE- 560 PRINT" CHEN AUTOMATISCH AUF DEN DEUTSCHEN 570 [153]" (null)EICHENSATZ MIT (null)MLAUTEN UMGESCHALTET. 580 PRINT"[145]- [206]ORMALERWEISE WIRD [199]ROSS/[199]RAFIK BZW. 590 [153]" CHR$ROSS-(null)LEINSCHREIBUNG SO GEDRUCKT, 600 PRINT" WIE DER [194]ILDSCHIRM SIE ANZEIGT. 610 [153]" (null)ENN KEIN (null)RIGINAL-(null)EICHENSATZ AUF 620 PRINT" DEM [194]ILDSCHIRM IST, WIRD [199]ROSS/[203]LEIN- 630 [153]" SCHREIBUNG BENUTZT ((null)IEHE AUCH (null)M- 640 PRINT" SCHALTUNG PER [211]EKUNDAERADRESSE). 650 [153]"- ATNLLE CHR$RAFIKZEICHEN DES LEN 64 WERDEN 660 PRINT" GEDRUCKT. [204]ISTINGS SEHEN ALSO AUS WIE 670 [153]" AUF DEM PEEKILDSCHIRM. 680 PRINT 690 PRINT" [198]OLGENDE [211]TEUERZEICHEN UND -[198]UNKTIONEN 700 [153]"WERDEN VERARBEITET: 710 PRINT 720 PRINT"- [211]EKUNDAERADRESSE 10[146] [196]RUCKER-[210]ESET 730 [153]:[153]" (null)ASTE 740 GETA$:IFA$=""THEN740 750 PRINT"[147]"; 760 PRINT"- [211]EKUNDAERADRESSE 6[146] [218]EILEN-[193]BSTAND 770 [153]" EINSTELLEN (IN /144'-(null)CHRITTEN, WIE 780 PRINT" BEI [195]OMMODORE-[196]RUCKERN) 790 [153]"- LENLEFT$(null)$(1) UND LENLEFT$(null)$(14)WAIT SCHALTEN AUF 800 PRINT" ERWEITERTE [218]EICHEN 810 [153]"- LENLEFT$(null)$(129) UND LENLEFT$(null)$(15)WAIT SCHALTEN ER- 820 PRINT" WEITERTE [218]EICHEN AUS 830 [153]"- LENLEFT$(null)$(8)WAIT SCHALTET AUF 7-(null)UNKT-CHR$RAFIK- 840 PRINT" [205]ODUS. [196]ER [218]EILENABSTAND WIRD DABEI 850 [153]" ANGEPASST (21/216') 860 PRINT"- [195][200][210]$(15)[146] SCHALTET [199]RAFIK AUS 870 [153]"- LENLEFT$(null)$(17)WAIT SCHALTET UNBEDINGT AUF 880 PRINT" [199]ROSS/[203]LEINSCHREIBUNG 890 [153]"- LENLEFT$(null)$(145)WAIT SCHALTET UNBEDINGT AUF 900 PRINT" [199]ROSS/[199]RAFIK-[205]ODUS 910 [153]"- LENLEFT$(null)$(141)WAIT BEWIRKT (null)AGENRUECKLAUF 920 PRINT" OHNE [218]EILENVORSCHUB 930 [153]"- LENLEFT$(null)$(34)WAIT SCHALTET AUF (null)UOTE-(null)ODUS 940 PRINT" (WEITERE [211]TEUERZEICHEN WERDEN ALS [199]RA- 950 [153]"ON FIKZEICHEN GEDRUCKT) 960 PRINT"- [195][200][210]$(18)[146] SCHALTET AUF [210]EVERSE 970 [153]"- LENLEFT$(null)$(146)WAIT SCHALTET (null)EVERSE AUS 980 PRINT 990 PRINT" [212]ASTE 1000 [161]A$:[139]A$[178]""[167]1000 1010 [153]"LOAD"; 1020 [153]" ATNNDERE (null)TEUERZEICHEN WERDEN ALS CHR$RAFIK- 1030 PRINT"[145]ZEICHEN GEDRUCKT. 1040 [153] 1050 [153]" (null)IT DER (null)PEICHERSTELLE 150WAIT KOENNEN 1060 PRINT"NOCH WEITERE [198]UNKTIONEN GESTEUERT 1070 [153]"WERDEN: 1080 PRINT 1090 PRINT"[208][207][203][197] 150,128[146] BEWIRKT, DASS [211]EKUNDAER- 1100 [153]"ADRESSE 7 ALS (null)MSCHALTZEICHEN FUER 1110 PRINT"[199]ROSS/[203]LEINSCHREIBUNG INTERPRETIERT 1120 [153]"WIRD. (null)HNE (null)EKUNDAERADRESSE ODER MIT 1130 PRINT"[211][193]=0 WIRD [199]ROSS/[199]RAFIK GEDRUCKT. [194]EI 1140 [153]"ANDEREN (null)ATN WIRD GEMAESS PEEKILDSCHIRM 1150 PRINT"GEDRUCKT. 1160 [153]"(null)(null)(null)VAL 150,64WAIT ALLE (null)EICHEN WERDEN DIREKT 1170 PRINT"OHNE IRGENDWELCHE [215]ANDLUNG AN DEN 1180 [153]"STR$RUCKER AUSGEGEBEN. RIGHT$N DIESEM (null)ODUS 1190 PRINT"ENTFAELLT AUCH DAS SONST UEBLICHE [197]XTRA- 1200 [153]"ON(null)INE-ASCEED. 1210 PRINT"[208][207][203][197][160]150,1[146] DER [196]RUCKER WIRD NICHT AUF 1220 [153]"DEUTSCHEN (null)EICHENSATZ UMGESCHALTET. 1230 PRINT 1240 PRINT"[196]URCH [193]DDITION KOENNEN DIE [215]ERTE AUCH 1250 [153]"GEMISCHT WERDEN! 1260 PRINT" [212]ASTE"; 1270 GETA$:IFA$=""THEN1270 1280 PRINT"[147][146]"; 1290 PRINT" [196]IE [193]USGABE-[210]OUTINEN FUER DEN [208]ARALLEL- 1300 [153]"ONSTR$RUCKER SIND SO IN DIE RIGHT$VALLEN-PEEKUS-(null)OUTI- 1310 PRINT"NEN EINGEBUNDEN, DASS AUCH PRAKTISCH 1320 [153]"ALLE (null)ASCHINENPROGRAMME KEINE (null)OTIZ 1330 PRINT"DAVON NEHMEN, WENN KEIN SERIELLER 1340 [153]"STR$RUCKER ANGESCHLOSSEN IST. PEEKEIM PEEKETRIEB 1350 PRINT"EINES SERIELLEN [196]RUCKERS MIT DIESEM 1360 [153]"(null)YSTEM IST ALLERDINGS ZU BEACHTEN, DASS 1370 PRINT"ES CA. 2 [211]EKUNDEN DAUERT, BIS DER 1380 [153]"STR$RUCKER BEIM ERSTEN (null)EFFNEN REAGIERT, 1390 PRINT"DA ZUERST DAS [214]ORHANDENSEIN EINES 1400 [153]"(null)ARALLEL-STR$RUCKERS ABGEFRAGT WIRD. 1420 PRINT" [213]NTER [197]INSATZ ALLER [211]PEICHERRESERVEN 1430 [153]"(STR$IE (null)ELDUNG (null)VALATN(null)LENLEFT$RIGHT$(null)CHR$ ASC(null)(null) BEIM (null)ADEN 1440 PRINT"FIEL ZUM [207]PFER) GELANG ES, NOCH EIN 1450 [153]"WEITERES ASCEATURE EINZUBAUEN: 1460 PRINT" [194]EI [196]RUCK AUF <[195][212][210][204]+[198]3> ERSCHEINT AUF 1470 [153]"DEM PEEKILDSCHIRM :(null)RIGHT$(null)(null)WAIT UND DER BLIN- 1480 PRINT"KENDE [195]URSOR. [196]IESER [194]EFEHL ERSETZT DAS 1490 [153]"LEIDIGE (null)(null)VAL(null)1,4:LEN(null)STR$1:(null)RIGHT$(null)(null)WAIT. (null)ACH DEM 1500 PRINT"[204]ISTEN WIRD DAS [196]RUCKERFILE WIEDER EIN- 1510 [153]"WANDFREI GESCHLOSSEN, SODASS AUCH DAS 1520 PRINT"[208][210][201][206][212]#1:[195][204][207][211][197]1[146] ENTFAELLT. 1530 [153]" (null)ASTEWAIT"; 1540 [161]A$:[139]A$[178]""[167]1540 1550 [153]"LOAD 1560 PRINT" [198]UER ALLE, DIE SICH DAS [214]ERBINDUNGS- 1570 [153]"KABEL (null)SER-(null)ORT - LENENTRONICS NICHT KAU- 1580 PRINT"FEN WOLLEN, DIE [193]NSCHLUSSBELEGUNG: 1590 [153] 1600 [153]"(null)SER-(null)ORT LENENTRONICS 1610 PRINT 1620 PRINT" [193] 16 1630 [153]" PEEK 11 1640 PRINT" [195] 2 1650 [153]" STR$ 3 1660 PRINT" [197] 4 1670 [153]" ASC 5 1680 PRINT" [200] 6 1690 [153]" RIGHT$ 7 1700 PRINT" [203] 8 1710 [153]" (null) 9 1720 PRINT" [205] 1 1730 [153]" (null) WIE ATN 1740 PRINT 1750 PRINT" [194]ESITZER EINES NICHT [197][211][195]/P-KOMPATIBLEN 1760 [153]"STR$RUCKERS (Z.PEEK. (null)ELCHERS LEN(null) 80 RIGHT$RIGHT$) MUES- 1770 PRINT"SEN VOR DEM [194]RENNEN FOLGENDE [193]ENDERUNGEN 1780 [153]"ONAM (null)ROGRAMM VORNEHMEN: 1790 PRINT" [212]ASTE[146]"; 1800 GETA$:IFA$=""THEN1800 1810 PRINT"[147]" 1820 PRINT" [211]PEICHERSTELLE NEUER [215]ERT 1830 [153]"(AB VAL(null)(null)(null)(null)-(null)TART) 1840 PRINT"---------------- ---------- 1850 [153]" $30ATN9 $4PEEK 1860 PRINT" $30[193][196] $[197][193] 1870 [153]" $30ATNVAL $VALATN 1880 PRINT" $30[193][198] $[197][193] 1890 [153]" $30PEEK0 $VALATN 1900 PRINT"[160] $30[194]1 $[197][193] 1910 [153] 1920 [153]" STR$ADURCH WERDEN CHR$RAFIK-(null)EICHEN IM 1930 PRINT"[211]INGLE-[196]ENSITY-[205]ODUS AUSGEGEBEN 1940 [153]"(STATT LEN(null)(null)). 1950 PRINT" [198]UER DEN ERWAEHNTEN [205]ELCHERS-[196]RUCKER 1960 [153]"MUSS AUSSERDEM DER (null)ERT FUER DAS CHR$RAFIK- 1970 PRINT"[145][204]INE-[198]EED GEAENDERT WERDEN: 1980 [153] 1990 [153]" $2ASC71 $13 2000 PRINT" [212]ASTE 2010 [161]A$:[139]A$[178]""[167]2010